home *** CD-ROM | disk | FTP | other *** search
/ Mac Expert 1995 Winter / Mac Expert - Winter 95.iso / Les fichiers / Utilitaires divers / Images / StudioCraft™ v1.3 ƒ / StudioCraft™ / StudioCraft™.rsrc / PREC_103 < prev    next >
Encoding:
Text File  |  1993-02-01  |  2.4 KB  |  117 lines
  1. /gr{64. div setgray}def
  2.  /SCdict 30 dict def
  3.  SCdict begin
  4.  /killbu {//md /bu get //md /bu {} put} def
  5.  /restorebu {//md exch /bu exch put} def
  6.  /killbn {//md /bn get //md /bn {} put} def
  7.  /restorebn {//md exch /bn exch put} def
  8.  /killfc {//md /fc get //md /fc {} put} def
  9.  /restorefc {//md exch /fc exch put} def
  10.  /killnc {//md /nc get //md /nc {} put} def
  11.  /restorenc {//md exch /nc exch put} def
  12.   SCdict /sc_mtrx matrix put
  13.   /sc_oval
  14.   { /sc_end   exch def
  15.     /sc_start exch def
  16.     /sc_yrad  exch def
  17.     /sc_xrad  exch def
  18.     /sc_y     exch def
  19.     /sc_x     exch def
  20.     /savematrix sc_mtrx currentmatrix def
  21.      sc_x    sc_y    translate
  22.      sc_xrad sc_yrad scale
  23.      0 0 1 sc_start sc_end arc
  24.     savematrix setmatrix
  25.   } def
  26.   /sc_arc
  27.   { /sc_end   exch def
  28.     /sc_start exch def
  29.     /sc_yrad  exch def
  30.     /sc_xrad  exch def
  31.     /sc_y     exch def
  32.     /sc_x     exch def
  33.     /savematrix sc_mtrx currentmatrix def
  34.      sc_x    sc_y    translate
  35.      sc_xrad sc_yrad scale
  36.      0 0 moveto
  37.      0 0 1 sc_start sc_end arc
  38.      0 0 lineto
  39.     savematrix setmatrix
  40.   } def
  41.  end
  42.  userdict begin
  43.  /SCsep 4 def
  44.  /UCRB .5 def
  45.  /UCRM .31 def
  46.  /UCRY .48 def
  47.    /setgray {
  48.      SCsep 0 eq SCsep 4 eq or{
  49.        systemdict begin setgray end
  50.      }
  51.      {
  52.        pop systemdict begin 1 setgray end
  53.      } ifelse
  54.    } def
  55.    /sethsbcolor {
  56.      systemdict begin
  57.      sethsbcolor
  58.      currentrgbcolor
  59.      end
  60.      userdict begin setrgbcolor end
  61.    } def
  62.    /setrgbcolor {
  63.      SCsep 4 eq {
  64.        systemdict begin
  65.        setrgbcolor
  66.        end
  67.      }
  68.      {
  69.        SCsep 0 eq {
  70.          do_ucrblack
  71.          systemdict begin
  72.          setgray
  73.          end
  74.          pop pop pop
  75.        }
  76.        {
  77.          do_ucrblack pop
  78.          do_correct
  79.          SCsep 1 sub index
  80.          systemdict begin
  81.          setgray
  82.          end
  83.          pop pop pop
  84.        } ifelse
  85.      } ifelse
  86.    } def
  87.    /do_correct {
  88.      cvtrgbcym
  89.      1 index UCRY mul sub 3 1 roll
  90.      1 index UCRM mul sub 3 1 roll
  91.      3 1 roll
  92.      cvtrgbcym
  93.    } def
  94.    /do_ucrblack {
  95.      cvtrgbcym
  96.      get_min 3 index get_min
  97.      /mincolor exch def
  98.      pop pop
  99.      /ucramt mincolor UCRB sub
  100.      dup 0 lt { pop 0 } if def
  101.      ucramt sub 3 1 roll
  102.      ucramt sub 3 1 roll
  103.      ucramt sub 3 1 roll
  104.      cvtrgbcym
  105.      ucramt 1.25 mul
  106.      1 exch sub
  107.    } def
  108.    /cvtrgbcym {
  109.      1 exch sub 3 1 roll
  110.      1 exch sub 3 1 roll
  111.      1 exch sub 3 1 roll
  112.    } def
  113.    /get_min {
  114.      2 copy lt {1} {0} ifelse index
  115.    } def
  116.  end